﻿Joining by Sir Gareth begins here.

To join (X - a person) with (Y - a person):
  Let HX be the holder of X;
  Let HY be the holder of Y;
  If HX is not HY begin;
    If HY is enterable, say "(joining [the Y] on [the HY])";
    otherwise if HX is enterable, say "(leaving [the HX])";
    Move X to HY, without printing a room description;
  end if;

Carry out kissing a person (called the kissee):
  Join the player with the kissee

Carry out someone trying kissing a person (called the kissee):
  Join the person asked with the kissee

Carry out licking a body-part:
  Join the player with the holder of the noun;

Carry out someone trying licking a body-part:
  Join the person asked with the holder of the noun;

Carry out rubbing a body-part:
  Join the player with the holder of the noun;

Carry out someone trying rubbing a body-part:
  Join the person asked with the holder of the noun;

Carry out thru-rubbing a body-part:
  Join the player with the holder of the noun;

Carry out someone trying thru-rubbing a body-part:
  Join the person asked with the holder of the noun;

Carry out screwing a body-part:
  Join the player with the holder of the noun;

Carry out someone trying screwing a body-part:
  Join the person asked with the holder of the noun;

Joining ends here.

---- DOCUMENTATION ----

This is an add-on to the Simple Sex extension.  It automatically moves sex partners into the same location whenever a sex action takes place.  Use this only if you are *not* using the Furniture extension.